100 REM SAVE"0:LOAD & RUN",8
110 REM ** RTE/87
120 REM ** A LOAD AND RUN INTRODUCTION
130 REM ** FOR ALL COMMODORE MACHINES.
140 :
150 DV=8: REM DISK DEVICE #
160 PD=4: REM PRINTER DEVICE #
170 CLS$=CHR$(147): TXT$=CHR$(14)
180 PRINT CLS$;TXT$;
190 PRINT "[212]RANSACTOR [208]UBLISHING [201]NC."
200 PRINT "85 [215]EST [215]ILMOT [211]TREET, #10"
210 PRINT "[210]ICHMOND [200]ILL, [207]NTARIO"
220 PRINT "[195][193][206][193][196][193]  [204]4[194] 1[203]7"
230 PRINT "TELEPHONE (416) 764-5273"
240 PRINT
250 PRINT "[201]NSERT YOUR FAVOURITE BOOT"
260 PRINT "PROGRAM HERE."
270 PRINT
280 INPUT "[214]IEW [196]IRECTORY (Y/N) ";VD$
290 IF VD$="N" THEN 400
300 IF VD$<>"Y" THEN 280
310 :
320 OPEN 8,DV,0,"$0"
330 GET#8,A$,A$: REM TRASH BYTES
340 GET#8,A$,A$,A$,A1$: IF ST THEN CLOSE8: GOTO 400
350 PRINT ASC(A$+CHR$(0))+256*ASC(A1$+CHR$(0));
360 GET#8,A$: IF A$<>"" THEN PRINT A$;: GOTO 360
370 PRINT: GOTO 340
380 :
390 REM ** MORE INFO **
400 PRINT
410 PRINT "[215]OULD YOU LIKE TO KNOW MORE"
420 INPUT "ABOUT [212]RANSACTOR [205]AGAZINE (Y/N) ";YN$
430 IF YN$="N" THEN 500
440 IF YN$<>"Y" THEN 400
450 :
460 OPEN 8,DV,8,"0:[210][213][206] [205][197] [212][197][216][212]"
470 FOR X=0 TO 1: INPUT#8,A$: PRINT A$: X=ST: NEXT: CLOSE8
480 :
490 REM ** SUB FORM **
500 PRINT
510 PRINT "[215]OULD YOU LIKE TO PRINT OUT"
520 INPUT "A SUBSCRIPTION FORM (Y/N) ";YN$
530 IF YN$="N" THEN 630
540 IF YN$<>"Y" THEN 500
550 :
560 PRINT "* [210]EADY [208]RINTER & [208]RESS [193] [203]EY *"
570 GET A$: IF A$="" THEN 570
580 OPEN 4,PD: REM PD=PRINTER DEVICE #
590 OPEN 8,DV,8,"0:[210][213][206] [205][197] [198][207][210][205]"
600 FOR X=0 TO 1: INPUT#8,A$: X=ST: PRINT#4,A$: NEXT: CLOSE8: CLOSE4
610 :
620 REM ** BYE **
630 PRINT CLS$
640 PRINT "[212]HANK YOU FOR SUPPORTING"
650 PRINT "[212]RANSACTOR [205]AGAZINE"
660 END